﻿
Public Class PDFform
    Public datei, datei_alt As String
    Public seite As Integer = 0
    Public vollbild As Boolean = False

    Private Sub TreeView1_AfterSelect_1(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect

        Select Case e.Node.Name
            Case "Knoten0"
                datei = "Basis1\ba1_00_pruefungsvorschrift_pdf.pdf"
            Case "Knoten1"
                datei = "Basis1\ba1_la01_1_aufbau_aufgaben_thw_pdf.pdf"
            Case "Knoten2"
                datei = "Basis1\ba1_la01_1_aufbau_aufgaben_thw_pdf.pdf"
            Case "Knoten3"
                datei = "Basis1\ba1_la01_2_zivil_katschutz_pdf.pdf"
            Case "Knoten4"
                datei = "Basis1\ba1_la01_3_thw_arbeitgeber_pdf.pdf"
            Case "Knoten23"
                datei = "Basis1\ba1_la01_4_landessprecher_helferverein_pdf.pdf"
            Case "Knoten6"
                datei = "Basis1\ba1_la02_0__2_3_arbeitssicherheit_pdf.pdf"
            Case "Knoten22"
                datei = "Basis1\ba1_la02_0__2_3_arbeitssicherheit_pdf.pdf"
            Case "Knoten24"
                datei = "Basis1\ba1_la02_4_gefahrstoff_gefahrgut_pdf.pdf"
            Case "Knoten13"
                datei = "Basis1\ba1_la03_0_rundschlingen_leinen_etc_pdf.pdf"
            Case "Knoten14"
                datei = "Basis1\ba1_la04_0_leitern_pdf.pdf"
            Case "Knoten15"
                datei = "Basis1\ba1_la05_ausleuchten_von_einsatzstellen_pdf.pdf"
            Case "Knoten16"
                datei = "Basis1\ba1_la06_1_holzbearbeitung_pdf.pdf"
            Case "Knoten25"
                datei = "Basis1\ba1_la06_1_holzbearbeitung_pdf.pdf"
            Case "Knoten26"
                datei = "Basis1\ba1_la06_2_gesteinsbearbeitung_pdf.pdf"
            Case "Knoten27"
                datei = "Basis1\ba1_la06_3_metallbearbeitung_pdf.pdf"
            Case "Knoten17"
                datei = "Basis1\ba1_la07_bewegen_von_lasten_pdf.pdf"
            Case "Knoten18"
                datei = "Basis1\ba1_la08_1_arbeiten_im_und_am_wasser_pdf.pdf"
            Case "Knoten28"
                datei = "Basis1\ba1_la08_1_arbeiten_im_und_am_wasser_pdf.pdf"
            Case "Knoten29"
                datei = "Basis1\ba1_la08_2_arbeiten_im_am_wasser_pumpen_pdf.pdf"
            Case "Knoten30"
                datei = "Basis1\ba1_la08_3_deich_und_hochwasser_pdf.pdf"
            Case "Knoten19"
                datei = "Basis1\ba1_la09_1_u_3_allg_verhaltensgrundlagen_pdf.pdf"
            Case "Knoten31"
                datei = "Basis1\ba1_la09_1_u_3_allg_verhaltensgrundlagen_pdf.pdf"
            Case "Knoten32"
                datei = "Basis1\ba1_la09_2_verhalten_i_einsatz_u_fue_kom_pdf.pdf"
            Case "Knoten33"
                datei = "Basis1\ba1_la09_4_1_verhalten_i_einsatz_gefahren_pdf.pdf"
            Case "Knoten34"
                datei = "Basis1\ba1_la09_4_2_th_auf_verkehrswegen_pdf.pdf"
            Case "Knoten35"
                datei = "Basis1\ba1_la09_5_verhalten_i_einsatz_psn_pdf.pdf"
            Case "Knoten20"
                datei = "Basis1\ba1_la10_1_grundlagen_rettungsmethoden_pdf.pdf"
            Case "Knoten36"
                datei = "Basis1\ba1_la10_1_grundlagen_rettungsmethoden_pdf.pdf"
            Case "Knoten37"
                datei = "Basis1\ba1_la10_1_grundlagen_rettungsmethoden_pdf.pdf"
            Case "Knoten38"
                datei = "Basis1\ba1_la10_2_rettungsmittel_pdf.pdf"
            Case "Knoten42"
                datei = "Basis1\ba1_la10_3_1_kennz_v_schadenstellen_pdf.pdf"
            Case "Knoten43"
                datei = "Basis1\ba1_la10_3_2_schadenselemente_pdf.pdf"
            Case "Knoten39"
                datei = "Basis1\ba1_la10_4__rettung_a_truemmern_pdf.pdf"
            Case "Knoten50"
                datei = "Basis1\ba1_la10_4__rettung_a_truemmern_pdf.pdf"
            Case "Knoten44"
                datei = "Basis1\ba1_la10_4_2_hydr_rettungsgeraete_pdf.pdf"
            Case "Knoten45"
                datei = "Basis1\ba1_la10_5_ueberwinden_v_hindernissen_pdf.pdf"
            Case "Knoten46"
                datei = "Basis1\ba1_la10_6_psych_erste_hilfe_pdf.pdf"
            Case "Knoten47"
                datei = "Basis1\ba1_la10_7_brandschutz_pdf.pdf"
            Case "Knoten21"
                datei = "Basis1\ba1_la11_0_einsatzgrundlagen_pdf.pdf"
            Case "Knoten51"
                datei = "Basis1\ba1_la11_0_einsatzgrundlagen_pdf.pdf"
            Case "Knoten48"
                datei = "Basis1\ba1_la11_2_verhalten_bei_extremwetter_pdf.pdf"
            Case "Knoten49"
                datei = "Basis1\ba1_la11_3_umgang_m_medien_pdf.pdf"
            
            
            Case Else

        End Select
        If Not String.IsNullOrEmpty(datei) And datei <> datei_alt Then
            AxAcroPDF1.LoadFile(".\" & datei)

            datei_alt = datei
            datei = ""
        End If
        

    End Sub


    Dim vollbildvorher As Boolean
    Private Sub VollbildToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VollbildToolStripMenuItem.Click

        If Not vollbild Then
            SplitContainer1.Panel1Collapsed = True
            Me.TopMost = True
            If Me.WindowState = FormWindowState.Maximized Then
                vollbildvorher = True
                Me.WindowState = FormWindowState.Normal
            Else
                vollbildvorher = False
            End If
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None
            Me.WindowState = FormWindowState.Maximized
            vollbild = True
        Else
            SplitContainer1.Panel1Collapsed = False
            Me.TopMost = False
            If Not vollbildvorher Then
                Me.WindowState = FormWindowState.Normal
            End If
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.Sizable
            vollbild = False
        End If

    End Sub



    Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
        Me.Close()
    End Sub
End Class
